Option Explicit
Sub Q_Sample022()
    'ոQ_Data01
    ']wޥζMicrosoft Scripting Runtime
    Dim myDic As Scripting.Dictionary
    Dim myRng As Range
    Dim myKey As Variant
    Dim I     As Long
    Set myDic = CreateObject("Scripting.Dictionary")
    'wƽd
    For Each myRng In Worksheets("Q_Data01").Range("a1") _
        .CurrentRegion.Columns(3).Offset(1).Cells
        With myRng
            If Len(.Text) > 0 Then
                myDic.Add Key:=myRng.Value, Item:=myRng.Offset(, 5).Value
            End If
        End With
    Next
    myKey = ""                                       'KEYw
    If myDic.Exists(myKey) Then
        Debug.Print myKey & "sbC"
    Else
        Debug.Print myKey & "sbC"
        Exit Sub
    End If
    myDic.Key(myKey) = myKey & "a"
    If myDic.Exists(myKey) Then
        Debug.Print myKey & "sbC"
    Else
        Debug.Print myKey & "sbC"
    End If
    If myDic.Exists(myKey & "a") Then
        Debug.Print myKey & "a" & "sbC"
    Else
        Debug.Print myKey & "a" & "sbC"
    End If
    Set myDic = Nothing                                   '
End Sub
